/* packet-tnef.c
 * Routines for Transport-Neutral Encapsulation Format (TNEF) packet disassembly
 *
 * $Id: packet-tnef.c 27389 2009-02-06 20:33:53Z wmeier $
 *
 * Copyright (c) 2007 by Graeme Lunt
 *
 * Wireshark - Network traffic analyzer
 * By Gerald Combs <gerald@wireshark.org>
 * Copyright 1999 Gerald Combs
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <time.h>
#include <glib.h>
#include <string.h>

#include <epan/packet.h>
#include <epan/addr_resolv.h>
#include <epan/strutil.h>

#include <wiretap/tnef.h>

#include "packet-dcerpc.h"
#include "packet-dcerpc-nspi.h"
#include "packet-ber.h"

#define PNAME  "Transport-Neutral Encapsulation Format"
#define PSNAME "TNEF"
#define PFNAME "tnef"

#define ATP_TRIPLES   (0x0000)
#define ATP_STRING    (0x0001)
#define ATP_TEXT      (0x0002)
#define ATP_DATE      (0x0003)
#define ATP_SHORT     (0x0004)
#define ATP_LONG      (0x0005)
#define ATP_BYTE      (0x0006)
#define ATP_WORD      (0x0007)
#define ATP_DWORD     (0x0008)
#define ATP_MAX       (0x0009)

#define ATT_OWNER                     (0x00060000) /* handled */
#define ATT_SENT_FOR                  (0x00060001) /* handled */
#define ATT_DELEGATE                  (0x00060002)
#define ATT_DATE_START                (0x00030006) /* handled */
#define ATT_DATE_END                  (0x00030007) /* handled */
#define ATT_AID_OWNER                 (0x00040008)
#define ATT_REQUEST_RES               (0x00040009)

#define ATT_FROM                      (0x00008000)
#define ATT_SUBJECT                   (0x00018004)
#define ATT_DATE_SENT                 (0x00038005) /* handled */
#define ATT_DATE_RECD                 (0x00038006) /* handled */
#define ATT_MESSAGE_STATUS            (0x00068007)
#define ATT_MESSAGE_CLASS             (0x00078008) /* handled */
#define ATT_MESSAGE_ID                (0x00018009)
#define ATT_PARENT_ID                 (0x0001800A) /* handled */
#define ATT_CONVERSATION_ID           (0x0001800B) /* handled */
#define ATT_BODY                      (0x0002800C)
#define ATT_PRIORITY                  (0x0004800D) /* handled */
#define ATT_ATTACH_DATA               (0x0006800F)
#define ATT_ATTACH_TITLE              (0x00018010) /* handled */
#define ATT_ATTACH_META_FILE          (0x00068011)
#define ATT_ATTACH_CREATE_DATE        (0x00038012) /* handled */
#define ATT_ATTACH_MODIFY_DATE        (0x00038013) /* handled */
#define ATT_DATE_MODIFIED             (0x00038020) /* handled */

#define ATT_ATTACH_TRANSPORT_FILENAME (0x00069001)
#define ATT_ATTACH_REND_DATA          (0x00069002)
#define ATT_MAPI_PROPS                (0x00069003) /* handled */
#define ATT_RECIP_TABLE               (0x00069004)
#define ATT_ATTACHMENT                (0x00069005)
#define ATT_TNEF_VERSION              (0x00089006) /* handled */
#define ATT_OEM_CODEPAGE              (0x00069007) /* handled */
#define ATT_ORIGINAL_MESSAGE_CLASS    (0x00079008) /* handled */

static int proto_tnef = -1;

static int hf_tnef_signature = -1;
static int hf_tnef_key = -1;
static int hf_tnef_attribute = -1;
static int hf_tnef_attribute_lvl = -1;
static int hf_tnef_attribute_tag = -1;
static int hf_tnef_attribute_tag_type = -1;
static int hf_tnef_attribute_tag_id = -1;
static int hf_tnef_attribute_length = -1;
static int hf_tnef_attribute_value = -1;
static int hf_tnef_attribute_string = -1;
static int hf_tnef_attribute_date = -1;
static int hf_tnef_attribute_display_name = -1;
static int hf_tnef_attribute_email_address = -1;
static int hf_tnef_attribute_checksum = -1;
static int hf_tnef_mapi_props = -1;
static int hf_tnef_oem_codepage = -1;
static int hf_tnef_version = -1;
static int hf_tnef_message_class = -1;
static int hf_tnef_original_message_class = -1;
static int hf_tnef_priority = -1;
static int hf_tnef_mapi_props_count = -1;

static int hf_tnef_property = -1;
static int hf_tnef_property_tag = -1;
static int hf_tnef_property_tag_type = -1;
static int hf_tnef_property_tag_id = -1;
static int hf_tnef_property_tag_set = -1;
static int hf_tnef_property_tag_kind = -1;
static int hf_tnef_property_tag_name_id = -1;
static int hf_tnef_property_tag_name_length = -1;
static int hf_tnef_property_tag_name_string = -1;
static int hf_tnef_property_padding = -1;
static int hf_tnef_padding = -1;

static int hf_tnef_values_count = -1;
static int hf_tnef_value_length = -1;

static int hf_tnef_attribute_date_year = -1;
static int hf_tnef_attribute_date_month = -1;
static int hf_tnef_attribute_date_day = -1;
static int hf_tnef_attribute_date_hour = -1;
static int hf_tnef_attribute_date_minute = -1;
static int hf_tnef_attribute_date_second = -1;
static int hf_tnef_attribute_date_day_of_week = -1;

static int hf_tnef_PropValue_i = -1;
static int hf_tnef_PropValue_l = -1;
static int hf_tnef_PropValue_b = -1;
static int hf_tnef_PropValue_lpszA = -1;
static int hf_tnef_PropValue_lpszW = -1;
static int hf_tnef_PropValue_lpguid = -1;
static int hf_tnef_PropValue_bin = -1;
static int hf_tnef_PropValue_ft = -1;
static int hf_tnef_PropValue_err = -1;
static int hf_tnef_PropValue_MVi = -1;
static int hf_tnef_PropValue_MVl = -1;
static int hf_tnef_PropValue_MVszA = -1;
static int hf_tnef_PropValue_MVbin = -1;
static int hf_tnef_PropValue_MVguid = -1;
static int hf_tnef_PropValue_MVszW = -1;
static int hf_tnef_PropValue_MVft = -1;
static int hf_tnef_PropValue_null = -1;
static int hf_tnef_PropValue_object = -1;

static int ett_tnef = -1;
static int ett_tnef_attribute = -1;
static int ett_tnef_attribute_tag = -1;
static int ett_tnef_mapi_props = -1;
static int ett_tnef_property = -1;
static int ett_tnef_property_tag = -1;
static int ett_tnef_counted_items = -1;
static int ett_tnef_attribute_date = -1;
static int ett_tnef_attribute_address = -1;

static const value_string tnef_Lvl_vals[] = {
   {   1, "LVL-MESSAGE" },
   {   2, "LVL-ATTACHMENT" },
   { 0, NULL }
};

static const value_string tnef_Priority_vals[] = {
   {   1, "Low" },
   {   2, "High" },
   {   3, "Normal" },
   { 0, NULL }
};

static const value_string tnef_Types_vals[] = {
	 {  ATP_TRIPLES, "Triples" },
	 {  ATP_STRING,  "String"},
	 {  ATP_TEXT,    "Text" },
	 {  ATP_DATE,    "Date"},
	 {  ATP_SHORT,   "Short"},
	 {  ATP_LONG,    "Long"},
	 {  ATP_BYTE,    "Byte"},
	 {  ATP_WORD,    "Word"},
	 {  ATP_DWORD,   "DWord"},
	 {  ATP_MAX,     "Max"},
	 { 0, NULL }
};

static const value_string weekday_vals[] = {
	{0, "Sunday"},
	{1, "Monday"},
	{2, "Tuesday"},
	{3, "Wednesday"},
	{4, "Thursday"},
	{5, "Friday"},
	{6, "Saturday"},
	{0, NULL}
};

static const value_string tnef_Attribute_vals[] = {
	{  ATT_OWNER, "ATT_OWNER" },
	{  ATT_SENT_FOR, "ATT_SENT_FOR" },
	{  ATT_DELEGATE, "ATT_DELEGATE" },
	{  ATT_OWNER, "ATT_OWNER" },
	{  ATT_DATE_START, "ATT_DATE_START" }, 
	{  ATT_DATE_END, "ATT_DATE_END" }, 
	{  ATT_AID_OWNER, "ATT_AID_OWNER" },
	{  ATT_REQUEST_RES, "ATT_REQUEST_RES" },
	{  ATT_FROM, "ATT_FROM" },
	{  ATT_SUBJECT, "ATT_SUBJECT" },
	{  ATT_DATE_SENT, "ATT_DATE_SENT" }, 
	{  ATT_DATE_RECD, "ATT_DATE_RECD" }, 
	{  ATT_MESSAGE_STATUS, "ATT_MESSAGE_STATUS" },
	{  ATT_MESSAGE_CLASS, "ATT_MESSAGE_CLASS" },
	{  ATT_MESSAGE_ID, "ATT_MESSAGE_ID" },
	{  ATT_PARENT_ID, "ATT_PARENT_ID" },
	{  ATT_CONVERSATION_ID, "ATT_CONVERSATION_ID" },
	{  ATT_BODY, "ATT_BODY" },
	{  ATT_PRIORITY, "ATT_PRIORITY" },
	{  ATT_ATTACH_DATA, "ATT_ATTACH_DATA" },
	{  ATT_ATTACH_TITLE, "ATT_ATTACH_TITLE" },
	{  ATT_ATTACH_META_FILE, "ATT_ATTACH_META_FILE" },
	{  ATT_ATTACH_CREATE_DATE, "ATT_ATTACH_CREATE_DATE" },
	{  ATT_ATTACH_MODIFY_DATE, "ATT_ATTACH_MODIFY_DATE" },
	{  ATT_DATE_MODIFIED, "ATT_DATE_MODIFIED" },
	{  ATT_ATTACH_TRANSPORT_FILENAME, "ATT_ATTACH_TRANSPORT_FILENAME" },
	{  ATT_ATTACH_REND_DATA, "ATT_ATTACH_REND_DATA" },
	{  ATT_MAPI_PROPS, "ATT_MAPI_PROPS" },
	{  ATT_RECIP_TABLE, "ATT_RECIP_TABLE" },
	{  ATT_ATTACHMENT, "ATT_ATTACHMENT" },
	{  ATT_TNEF_VERSION, "ATT_TNEF_VERSION" },
	{  ATT_OEM_CODEPAGE, "ATT_OEM_CODEPAGE" },
	{  ATT_ORIGINAL_MESSAGE_CLASS, "ATT_ORIGINAL_MESSAGE_CLASS" },
	{ 0, NULL }
};

static gint dissect_counted_values(tvbuff_t *tvb, gint offset, int hf_id,  packet_info *pinfo _U_, proto_tree *tree, gboolean single, gboolean unicode)
{
	 proto_item *item;
	 guint32 length, count, i;

	 count = tvb_get_letohl(tvb, offset);
	 item = proto_tree_add_item(tree, hf_tnef_values_count, tvb, offset, 4, TRUE);

	 if(count > 1) {
		 if(single) {
			 item = proto_tree_add_text(tree, tvb, offset, 4,
						    "Expecting a single item but found %d", count);
			 proto_item_set_expert_flags(item, PI_MALFORMED, PI_ERROR);

			 tree = proto_item_add_subtree(item, ett_tnef_counted_items);
		 }
	 }

	 offset += 4;

	 for(i = 0; i < count; i++) {

		 length = tvb_get_letohl(tvb, offset);
		 proto_tree_add_item(tree, hf_tnef_value_length, tvb, offset, 4, TRUE);
		 offset += 4;

		 if (unicode) {
			 char *unicode_str = tvb_get_ephemeral_faked_unicode(tvb, offset, length/2, TRUE);
			 proto_tree_add_string(tree, hf_id, tvb, offset, length, unicode_str);
		 } else {
			 proto_tree_add_item(tree, hf_id, tvb, offset, length, FALSE);
		 }
		 offset += length;

		 /* XXX: may be padding ? */

	 }

	 return offset;
}

static gint dissect_counted_address(tvbuff_t *tvb, gint offset, packet_info *pinfo _U_, proto_tree *tree)
{
	 guint16 length;

	 length = tvb_get_letohs(tvb, offset);
	 proto_tree_add_item(tree, hf_tnef_value_length, tvb, offset, 2, TRUE);
	 offset += 2;

	 proto_tree_add_item(tree, hf_tnef_attribute_display_name, tvb, offset, length, FALSE);
	 offset += length;

	 length = tvb_get_letohs(tvb, offset);
	 proto_tree_add_item(tree, hf_tnef_value_length, tvb, offset, 2, TRUE);
	 offset += 2;

	 proto_tree_add_item(tree, hf_tnef_attribute_email_address, tvb, offset, length, FALSE);
	 offset += length;

	 return offset;
}


static void dissect_DTR(tvbuff_t *tvb, packet_info *pinfo _U_, proto_tree *tree)
{
	proto_item *item;
	gint offset;

	offset = 0;

	item = proto_tree_add_item(tree, hf_tnef_attribute_date_year, tvb, offset, 2, TRUE);
	offset +=2;

	item = proto_tree_add_item(tree, hf_tnef_attribute_date_month, tvb, offset, 2, TRUE);
	offset +=2;

	item = proto_tree_add_item(tree, hf_tnef_attribute_date_day, tvb, offset, 2, TRUE);
	offset +=2;

	item = proto_tree_add_item(tree, hf_tnef_attribute_date_hour, tvb, offset, 2, TRUE);
	offset +=2;
	
	item = proto_tree_add_item(tree, hf_tnef_attribute_date_minute, tvb, offset, 2, TRUE);
	offset +=2;

	item = proto_tree_add_item(tree, hf_tnef_attribute_date_second, tvb, offset, 2, TRUE);
	offset +=2;

	item = proto_tree_add_item(tree, hf_tnef_attribute_date_day_of_week, tvb, offset, 2, TRUE);
	offset +=2;
}


static void dissect_mapiprops(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
{
	proto_item *item, *prop_item;
	proto_tree *prop_tree, *tag_tree;
	guint32     count, tag, tag_kind, tag_length;
	guint16     padding;
	gint        offset, start_offset;
	
	guint8      drep[] = {0x10 /* LE */, /* DCE_RPC_DREP_FP_IEEE */ 0 };
	dcerpc_info di; 
	void        *old_private_data;
	
	offset = 0;
	
	di.conformant_run = 0;
	di.call_data = NULL;
	
	old_private_data = pinfo->private_data;
	pinfo->private_data = &di;
	
	/* first the count */
	item = proto_tree_add_item(tree, hf_tnef_mapi_props_count, tvb, offset, 4, TRUE);
	count = tvb_get_letohl(tvb, offset);
	
	offset += 4;

	while(tvb_length_remaining(tvb, offset) > 0 ) {
		
		start_offset = offset;
		
		/* get the property tag */
		
		prop_item = proto_tree_add_item(tree, hf_tnef_property, tvb, offset, -1, TRUE);
		prop_tree = proto_item_add_subtree(prop_item, ett_tnef_property);
		
		item = proto_tree_add_item(prop_tree, hf_tnef_property_tag, tvb, offset, 4, TRUE);
		tag_tree = proto_item_add_subtree(item, ett_tnef_property_tag);
		
		/* add a nice name to the property */
		tag = tvb_get_letohl(tvb, offset);
		proto_item_append_text(prop_item, " %s", val_to_str(tag, nspi_MAPITAGS_vals, "Unknown tag (0x%08lx)"));
		
		proto_tree_add_item(tag_tree, hf_tnef_property_tag_type, tvb, offset, 2, TRUE);
		offset += 2;
		
		proto_tree_add_item(tag_tree, hf_tnef_property_tag_id, tvb, offset, 2, TRUE);
		offset += 2;
		
		if(tag & 0x80000000) {
			
			/* it is a named property */
			proto_tree_add_item(tag_tree, hf_tnef_property_tag_set, tvb, offset, 16, TRUE);
			offset += 16;
			
			tag_kind = tvb_get_letohl(tvb, offset);
			proto_tree_add_item(tag_tree, hf_tnef_property_tag_kind, tvb, offset, 4, TRUE);
			offset += 4;
			
			if(tag_kind == 0) {
				proto_tree_add_item(tag_tree, hf_tnef_property_tag_name_id, tvb, offset, 4, TRUE);
				offset += 4;

				proto_item_append_text(prop_item, " [Named Property]");
			} else {
				char *name_string = NULL;

				tag_length = tvb_get_letohl(tvb, offset);
				proto_tree_add_item(tag_tree, hf_tnef_property_tag_name_length, tvb, offset, 4, TRUE);
				offset += 4;

				name_string = tvb_get_ephemeral_faked_unicode (tvb, offset, tag_length / 2, TRUE);
				proto_tree_add_string_format(tag_tree, hf_tnef_property_tag_name_string, tvb, offset, 
							     tag_length, name_string, "Name: %s", name_string);
				offset += tag_length;

				if((padding = (4 - tag_length % 4)) != 4) {
					proto_tree_add_item(tag_tree, hf_tnef_property_padding, tvb, offset, padding, TRUE);
					offset += padding;
				}

				proto_item_append_text(prop_item, " [Named Property: %s]", name_string);

			}
		}
		
		switch(tag) {
			/* handle any specific tags here */
		default:
			/* otherwise just use the type */
			switch(tag & 0x0000ffff) {
			case PT_I2:
				offset = PIDL_dissect_uint16(tvb, offset, pinfo, prop_tree, drep, hf_tnef_PropValue_i, 0);
				break;
			case PT_LONG:
				offset = PIDL_dissect_uint32(tvb, offset, pinfo, prop_tree, drep, hf_tnef_PropValue_l, 0);
				break;
			case PT_BOOLEAN:
				offset = PIDL_dissect_uint16(tvb, offset, pinfo, prop_tree, drep, hf_tnef_PropValue_b, 0);
				break;
			case PT_STRING8:
				offset = dissect_counted_values(tvb, offset, hf_tnef_PropValue_lpszA, pinfo, prop_tree, TRUE, FALSE);
				break;
			case PT_BINARY:
				offset = dissect_counted_values(tvb, offset, hf_tnef_PropValue_bin, pinfo, prop_tree, TRUE, FALSE);
				break;
			case PT_UNICODE:
				offset = dissect_counted_values (tvb, offset, hf_tnef_PropValue_lpszW, pinfo, prop_tree, TRUE, TRUE);
				break;
			case PT_CLSID:
				offset = nspi_dissect_struct_MAPIUID(tvb, offset, pinfo, prop_tree, drep, hf_tnef_PropValue_lpguid, 0);
				break;
			case PT_SYSTIME:
				offset = nspi_dissect_struct_FILETIME(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_ft,0);
				break;
			case PT_ERROR:
				offset = nspi_dissect_enum_MAPISTATUS(tvb, offset, pinfo, prop_tree, drep, hf_tnef_PropValue_err, 0);
				break;
			 case PT_MV_I2:
				 offset = nspi_dissect_struct_SShortArray(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_MVi,0);
				 break;
			 case PT_MV_LONG:
				 offset = nspi_dissect_struct_MV_LONG_STRUCT(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_MVl,0);
				 break;
			 case PT_MV_STRING8:
				 offset = nspi_dissect_struct_SLPSTRArray(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_MVszA,0);
				 break;
			 case PT_MV_BINARY:
				 offset = nspi_dissect_struct_SBinaryArray(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_MVbin,0);
				 break;
			 case PT_MV_CLSID:
				 offset = nspi_dissect_struct_SGuidArray(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_MVguid,0);
				 break;
			 case PT_MV_UNICODE:
				 offset = nspi_dissect_struct_MV_UNICODE_STRUCT(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_MVszW,0);
				 break;
			 case PT_MV_SYSTIME:
				 offset = nspi_dissect_struct_SDateTimeArray(tvb,offset,pinfo,prop_tree,drep,hf_tnef_PropValue_MVft,0);
				 break;
			 case PT_NULL:
				 offset = PIDL_dissect_uint32(tvb, offset, pinfo, prop_tree, drep, hf_tnef_PropValue_null, 0);
				 break;
			 case PT_OBJECT:
				 offset = PIDL_dissect_uint32(tvb, offset, pinfo, prop_tree, drep, hf_tnef_PropValue_object, 0);
				 break;
			}
		}

		/* we may need to pad to a 4-byte boundary */
		if((padding = (4 - (offset - start_offset) % 4)) != 4) {
			
			/* we need to pad */
			item = proto_tree_add_item(prop_tree, hf_tnef_property_padding, tvb, offset, padding, TRUE);
			
			offset += padding;
		}
		
		proto_item_set_len(prop_item, offset - start_offset);
	}
	
	/* restore private_data */
	pinfo->private_data = old_private_data;
}


static void dissect_tnef(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
{
  proto_item  *attr_item, *item;
  proto_tree  *attr_tree, *tag_tree, *props_tree, *addr_tree, *date_tree;
  guint32     tag, length, signature;
  gint        offset, start_offset;
  tvbuff_t    *next_tvb;

  if(tree){
    item = proto_tree_add_item(tree, proto_tnef, tvb, 0, -1, FALSE);
    tree = proto_item_add_subtree(item, ett_tnef);
  }

  offset = 0;

  /* first the signature */
  signature = tvb_get_letohl(tvb, offset);
  item = proto_tree_add_item(tree, hf_tnef_signature, tvb, offset, 4, TRUE);
  offset += 4;

  /* check the signature */
  if(signature != TNEF_SIGNATURE) {
    
    proto_item_append_text(item, " [Incorrect, should be 0x%x. No further dissection possible. Check any Content-Transfer-Encoding has been removed.]", TNEF_SIGNATURE);
    
    proto_item_set_expert_flags(item, PI_MALFORMED, PI_WARN);
    
    return;

  } else {

    proto_item_append_text(item, " [Correct]");

  }

  item = proto_tree_add_item(tree, hf_tnef_key, tvb, offset, 2, TRUE);
  offset += 2;

  while(tvb_length_remaining(tvb, offset) > 9 ) { /* there must be at least a level (1), tag (4) and length (4) to be valid */

    start_offset = offset;

    attr_item = proto_tree_add_item(tree, hf_tnef_attribute, tvb, offset, -1, TRUE);
    attr_tree = proto_item_add_subtree(attr_item, ett_tnef_attribute);

    proto_tree_add_item(attr_tree, hf_tnef_attribute_lvl, tvb, offset, 1, TRUE);
    offset += 1;

    item = proto_tree_add_item(attr_tree, hf_tnef_attribute_tag, tvb, offset, 4, TRUE);
    tag_tree = proto_item_add_subtree(item, ett_tnef_attribute_tag);

    /* add a nice name to the property */
    tag = tvb_get_letohl(tvb, offset);
    proto_item_append_text(attr_item, " %s", val_to_str(tag, tnef_Attribute_vals, "Unknown tag (0x%08lx)"));

    proto_tree_add_item(tag_tree, hf_tnef_attribute_tag_id, tvb, offset, 2, TRUE);
    offset += 2;

    proto_tree_add_item(tag_tree, hf_tnef_attribute_tag_type, tvb, offset, 2, TRUE);
    /* remember the type for the value dissection */
    offset += 2;

    length = tvb_get_letohl(tvb, offset);
    proto_tree_add_item(attr_tree, hf_tnef_attribute_length, tvb, offset, 4, TRUE);
    offset += 4;

    switch(tag) {
    case ATT_OEM_CODEPAGE:
	    proto_tree_add_item(attr_tree, hf_tnef_oem_codepage, tvb, offset, length, TRUE);
	    break;
    case ATT_TNEF_VERSION:
	    proto_tree_add_item(attr_tree, hf_tnef_version, tvb, offset, length, TRUE);
	    break;
    case ATT_MESSAGE_CLASS:
	    proto_tree_add_item(attr_tree, hf_tnef_message_class, tvb, offset, length, TRUE);
	    break;
    case ATT_ORIGINAL_MESSAGE_CLASS:
	    proto_tree_add_item(attr_tree, hf_tnef_original_message_class, tvb, offset, length, TRUE);
	    break;
    case ATT_MAPI_PROPS:
	    item = proto_tree_add_item(attr_tree, hf_tnef_mapi_props, tvb, offset, length, TRUE);
	    props_tree = proto_item_add_subtree(item, ett_tnef_mapi_props); 

	    next_tvb = tvb_new_subset(tvb, offset, length, length);

	    dissect_mapiprops(next_tvb, pinfo, props_tree);

	    break;
    case ATT_OWNER:
    case ATT_SENT_FOR:
	    addr_tree = proto_item_add_subtree(item, ett_tnef_attribute_address); 

	    (void)dissect_counted_address(tvb, offset, pinfo, addr_tree);

	    break;
    case ATT_PRIORITY:
	    proto_tree_add_item(attr_tree, hf_tnef_priority, tvb, offset, length, TRUE);
	    break;
    default:
	    /* just do it on the type */
	    switch((tag >> 16) & 0xffff) {
	    case ATP_DATE:
		    item = proto_tree_add_item(attr_tree, hf_tnef_attribute_date, tvb, offset, length, TRUE);		    
		    date_tree = proto_item_add_subtree(item, ett_tnef_attribute_date); 
		    
		    next_tvb = tvb_new_subset(tvb, offset, length, length);

		    dissect_DTR(next_tvb, pinfo, date_tree);

		    break;
	    case ATP_STRING:
		    proto_tree_add_item(attr_tree, hf_tnef_attribute_string, tvb, offset, length, FALSE);
		    proto_item_append_text(attr_item, " %s", tvb_get_ephemeral_string(tvb, offset, length)); 
		    break;
	    default:
		    proto_tree_add_item(attr_tree, hf_tnef_attribute_value, tvb, offset, length, TRUE);
		    break;
	    }
    }

    offset += length;

    proto_tree_add_item(attr_tree, hf_tnef_attribute_checksum, tvb, offset, 2, TRUE);
    offset += 2;

    proto_item_set_len(attr_item, offset - start_offset);
  }

  /* there may be some padding */
  if(tvb_length_remaining(tvb, offset)) /* XXX: Not sure if they is really padding or not */
    proto_tree_add_item(tree, hf_tnef_padding, tvb, offset, tvb_length_remaining(tvb, offset), TRUE);    
}

static void dissect_tnef_file(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
{
  if (check_col(pinfo->cinfo, COL_PROTOCOL))
    col_set_str(pinfo->cinfo, COL_PROTOCOL, PSNAME);

  if (check_col(pinfo->cinfo, COL_DEF_SRC))
    col_set_str(pinfo->cinfo, COL_DEF_SRC, PSNAME " encoded file");

  if (check_col(pinfo->cinfo, COL_INFO))
    col_append_str(pinfo->cinfo, COL_INFO, PNAME);

  dissect_tnef(tvb, pinfo, tree);
}

/* Register all the bits needed by the filtering engine */

void
proto_register_tnef(void)
{
  static hf_register_info hf[] = {
    { &hf_tnef_signature,
      { "Signature", "tnef.signature", FT_UINT32,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_key,
      { "Key", "tnef.key", FT_UINT16,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute,
      { "Attribute", "tnef.attribute", FT_NONE,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_lvl,
      { "Type", "tnef.attribute.lvl", FT_UINT8,  BASE_DEC, VALS(tnef_Lvl_vals), 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_tag,
      { "Tag", "tnef.attribute.tag", FT_UINT32,  BASE_HEX, VALS(tnef_Attribute_vals), 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_tag_type,
      { "Type", "tnef.attribute.tag.type", FT_UINT16,  BASE_HEX, VALS(tnef_Types_vals), 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_tag_id,
      { "Tag", "tnef.attribute.tag.id", FT_UINT16,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_length,
      { "Length", "tnef.attribute.length", FT_UINT32,  BASE_DEC, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_value,
      { "Value", "tnef.attribute.value", FT_NONE,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_string,
      { "String", "tnef.attribute.string", FT_STRING,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_date,
      { "Date", "tnef.attribute.string", FT_NONE,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_display_name,
      { "Display Name", "tnef.attribute.display_name", FT_STRING,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_email_address,
      { "Email Address", "tnef.attribute.email_address", FT_STRING,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_attribute_date_year, 
      { "Year", "tnef.attribute.date.year", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_attribute_date_month, 
      { "Month", "tnef.attribute.date.month", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_attribute_date_day, 
      { "Day", "tnef.attribute.date.day", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_attribute_date_hour, 
      { "Hour", "tnef.attribute.date.hour", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_attribute_date_minute, 
      { "Minute", "tnef.attribute.date.minute", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_attribute_date_second, 
      { "Second", "tnef.attribute.date.second", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_attribute_date_day_of_week, 
      { "Day Of Week", "tnef.attribute.date.day_of_week", FT_UINT16, BASE_DEC, VALS(weekday_vals), 0, "", HFILL }},
    { &hf_tnef_attribute_checksum,
      { "Checksum", "tnef.attribute.checksum", FT_UINT16,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_mapi_props,
      { "MAPI Properties", "tnef.mapi_props", FT_NONE,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_version,
      { "Version", "tnef.version", FT_UINT32,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_oem_codepage,
      { "OEM Codepage", "tnef.oem_codepage", FT_UINT64,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_message_class,
      { "Message Class", "tnef.message_class", FT_STRING,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_original_message_class,
      { "Original Message Class", "tnef.message_class.original", FT_STRING,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_priority,
      { "Priority", "tnef.priority", FT_UINT16,  BASE_DEC, VALS(tnef_Priority_vals), 0x0,
      	"", HFILL }},
    { &hf_tnef_mapi_props_count,
      { "Count", "tnef.mapi_props.count", FT_UINT16,  BASE_DEC, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property,
      { "Property", "tnef.property", FT_NONE,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag,
      { "Tag", "tnef.property.tag", FT_UINT32,  BASE_HEX, VALS(nspi_MAPITAGS_vals), 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag_type,
      { "Type", "tnef.property.tag.type", FT_UINT16,  BASE_HEX, VALS(nspi_property_types_vals), 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag_id,
      { "Tag", "tnef.property.tag.id", FT_UINT16,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag_set,
      { "Set", "tnef.attribute.tag.set", FT_GUID,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag_kind,
      { "Kind", "tnef.attribute.tag.kind", FT_UINT32,  BASE_DEC, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag_name_id,
      { "Name", "tnef.attribute.tag.name.id", FT_UINT32,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag_name_length,
      { "Length", "tnef.attribute.tag.name.length", FT_UINT32,  BASE_DEC, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property_tag_name_string,
      { "Name", "tnef.attribute.tag.name.string", FT_STRING,  BASE_HEX, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_property_padding,
      { "Padding", "tnef.property.padding", FT_NONE,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_padding,
      { "Padding", "tnef.padding", FT_NONE,  BASE_NONE, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_values_count,
      { "Count", "tnef.values.count", FT_UINT16,  BASE_DEC, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_value_length,
      { "Length", "tnef.value.length", FT_UINT16,  BASE_DEC, NULL, 0x0,
      	"", HFILL }},
    { &hf_tnef_PropValue_i, 
      { "I", "tnef.PropValue.i", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_l, 
      { "L", "tnef.PropValue.l", FT_UINT32, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_b, 
      { "B", "tnef.PropValue.b", FT_UINT16, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_lpszA, 
      { "Lpsza", "tnef.PropValue.lpszA", FT_STRING, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_lpszW, 
      { "Lpszw", "tnef.PropValue.lpszW", FT_STRING, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_lpguid, 
      { "Lpguid", "tnef.PropValue.lpguid", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_bin, 
      { "Bin", "tnef.PropValue.bin", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_ft, 
      { "Ft", "tnef.PropValue.ft", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_err, 
      { "Err", "tnef.PropValue.err", FT_UINT32, BASE_DEC, VALS(nspi_MAPISTATUS_vals), 0, "", HFILL }},
    { &hf_tnef_PropValue_MVi, 
      { "Mvi", "tnef.PropValue.MVi", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_MVl, 
      { "Mvl", "tnef.PropValue.MVl", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_MVszA, 
      { "Mvsza", "tnef.PropValue.MVszA", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_MVbin, 
      { "Mvbin", "tnef.PropValue.MVbin", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_MVguid, 
      { "Mvguid", "tnef.PropValue.MVguid", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_MVszW, 
      { "Mvszw", "tnef.PropValue.MVszW", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_MVft, 
      { "Mvft", "tnef.PropValue.MVft", FT_NONE, BASE_NONE, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_null, 
      { "Null", "tnef.PropValue.null", FT_UINT32, BASE_DEC, NULL, 0, "", HFILL }},
    { &hf_tnef_PropValue_object, 
      { "Object", "tnef.PropValue.object", FT_UINT32, BASE_DEC, NULL, 0, "", HFILL }},
  };
  static gint *ett[] = {
    &ett_tnef,
    &ett_tnef_attribute,
    &ett_tnef_attribute_tag,
    &ett_tnef_mapi_props,
    &ett_tnef_property,
    &ett_tnef_property_tag,
    &ett_tnef_counted_items,
    &ett_tnef_attribute_date,
    &ett_tnef_attribute_address,
  };

  proto_tnef = proto_register_protocol(PNAME, PSNAME, PFNAME);

  proto_register_field_array(proto_tnef, hf, array_length(hf));
  proto_register_subtree_array(ett, array_length(ett));

  /* Allow dissector to find be found by name. */
  register_dissector(PFNAME, dissect_tnef, proto_tnef);

}

/* The registration hand-off routine */
void
proto_reg_handoff_tnef(void)
{
  dissector_handle_t tnef_handle, tnef_file_handle;

  tnef_handle = find_dissector(PFNAME);
  tnef_file_handle = create_dissector_handle(dissect_tnef_file, proto_tnef);

  dissector_add_string("media_type", "application/ms-tnef", tnef_handle);

  /* X.400 file transfer bodypart */
  register_ber_oid_dissector("1.2.840.113556.3.10.1", dissect_tnef, proto_tnef, "id-et-tnef");

  dissector_add("wtap_encap", WTAP_ENCAP_TNEF, tnef_file_handle);
}
